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-- SystemDisplay.mesa; edited by Sandman; Aug 30, 1978 9:30 AM 

DIRECTORY 

AUoDefs: FROM "altodefs" USING [PageSize, wordlength], 
BitBUDefs: FROM "bitbltdefs" USING [BBptr, BBTabTe, BITBLT], 
DisplayDefs: FROM "displaydef s" USING [Background], 
FontDefs: FROM "fontdefs" USING [BitmapState. FontHandle], 
ImageDefs: FROM "imagedefs" USING [ 

AddCleanupProcedure, Cleanupltem, CleanupMask, CleanupProcedure], 
imineDefs: FROM "inlinedefs" USING [BITSHIFT, BITXOR, COPY], 
SegmentDefs: FROM "segmentdef s" USING [ 

DataSegmentAddress, DataSegmentHandle, DefauHBase, DeleteDataSegment, 

NewDataSegment], 
StreamDefs: FROM "streamdefs" USING [ 

DiskHandle, DisplayHandle, Getlndex, Modifylndex, Setlndex, StreamError, 

StreamHandle, Streamlndex, StreamObject] ; 

SystemDisplay: PROGRAM 

IMPORTS ImageDefs, SegmentDefs, StreamDefs 
EXPORTS DisplayDefs, StreamDefs 
SHARES StreamDefs ■ 

BEGIN 

BitsPerWord: CARDINAL « AUoDefs .wordlength; 
StreamHandle: TYPE » StreamDefs. StreamHandle; 
OrderedPOINTER: TYPE » ORDERED POINTER; 
OrderedNIL: OrderedPOINTER = LOOPHOLE[NIL] ; 

TAB: CHARACTER - IIC; 
CR: CHARACTER « 15C; 
NUL: CHARACTER - OC; 
SP: CHARACTER - ' ; 

-- Display Hardware 

DCBchainHead: DCBptr = LOOPHOLE[420B] ; 
DCBnil: DCBptr « LOOPHOLE[0]; 
DCBptr: TYPE « POINTER TO DCB; 
DCB: TYPE « RECORD [ 

next: DCBptr, 

resolution: {high, low}, 

background: DisplayDefs .Background, 

indenting: [0..77B], -- in units of 16 bits 

width: [0..377B], -- in units of 16 bits, must be even 

bitmap: OrderedPOINTER, -- must be even 

height: CARDINAL]; -- in double scan lines 

Leftlndent: CARDINAL; 
LeftMargin: CARDINAL; 
RightMargin: CARDINAL; 
WordsPerLine: CARDINAL; 

DSP: Display StreamDefs .StreamObject ♦- StreamDefs. StreamObject [ 
reset: ResetDS, 
get: GetNop, 
put: DPutChar, 
putback: PutbackNop, 
endof: EndofNop, 
destroy: DestroyNop, 
body: Display[, , , .]]; 

systemDS: StreamDefs .DisplayHandle = ©DSP; 

displayOn: BOOLEAN ^ FALSE; 

bmSegment : SegmentDefs .DataSegmentHandle; 

bmFirst, bmTail, bmNext, bmLastLine: OrderedPOINTER; 

lastLineSize: CARDINAL; 

dummyDCB: DCBptr; 

firstDCB, lastDCB, currentDCB: DCBptr ^ DCBnil; 

~- layout of bitmap is: 

DCBs: ARRAY [firstDCB .. 1 astDCB] OF DCB, 

bmFirst: ARRAY OF UNSPECIFIED, 

bmLastLine: ARRAY [0. .DSP. 1 ineheight*WordsPerLine) OF UNSPECIFIED. 
-- bmNext points to next word to allocate, 
-- bmTail points to oldest allocated bitmap. 
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bmState: FontDefs.BitmapState; 
tabWidth: CARDINAL; 

font: PUBLIC FontDefs. FontHandle <r- NIL; 

-- Typescript data 

typescript: PUBLIC StreamDefs .DiskHandle ^ NIL; 

startLine: StreamDefs. Streamlndex <- [0, 0]; 

GetDefauUDisplayStream: PUBLIC PROCEDURE RETURNS[StreamDef s .DisplayHandle] 
BEGIN 

RETURN[systemDS]; 
END; 

NotEnoughSpaceForDisplay: PUBLIC SIGNAL » CODE; 

SetupBitmap: PROCEDURE [bitmap: POINTER. nLines. nWords: CARDINAL] ■ 
BEGIN 

deb: DCBptr; 

lastLineSize ♦■ DSP. 1 ineheight*WordsPerLine; 
WHILE nLines*SIZE[DCB] + lastLineSize > nWords DO 
IF nLines > 1 THEN nLines ♦■ nLines - 1 
ELSE 
BEGIN 

IF WordsPerLine " 2 THEN ERROR NotEnoughSpaceForDisplay; 
WordsPerLine *- WordsPerLine - 2; 
RightMargin ^ WordsPerLine * BitsPerWord; 
lastLineSize <- DSP. 1 ineheight*WordsPerLine; 
END; 
ENDLOOP; 
currentLines <- nLines; 
firstDCB ♦- deb <- bitmap; 
THROUGH [0.. nLines) DO 

deb. next ^ deb + SIZE[DCB]; 
deb. height <- DSP.l ineheight/2; 
deb <- deb. next; 
ENDLOOP; 
lastDCB <- deb-SIZE[DCB]; 
lastDCB.next +- DCBnil ; 

bmFirst ^ LOOPHOLE[dcb , OrderedPOINTER] ; 

bmLastLine <- LOOPHOLE[bitmap+nWords-lastLineSize. OrderedPOINTER]; 
bmState <- [origin: bmLastLine, wordsPerLine: WordsPerLine, x:. y:0]; 
END; 

eurrentPages , currentLines, currentDummySize: CARDINAL; 

DisplayOff: PUBLIC PR0J:EDURE [color: DisplayDefs .Background] » 
BEGIN 

IF -displayOn THEN RETURN; 
SetSystemDisplaySize[0,0]; 
font .close[font] ; 
dummyDCB. background <- color; 
dummyDCB. height *- 1; 
END; 

DisplayOn: PUBLIC PROCEDURE - 
BEGIN 

IF displayOn THEN RETURN; 
dummyDCB. background ♦- white; 
SetDummyDisplaySize[ currentDummySize]; 
SetSystemDisplayS ize[eurrentLines, eurrentPages]; 
END; 

SetSystemDisplaySize: PUBLIC PROCEDURE [nTextLines. nPages: CARDINAL] « 
BEGIN OPEN SegmentDefs; 
IF displayOn THEN 

BEGIN 

firstDCB. next *- lastDCB.next; 

RemoveDCB[firstDCB]; 

firstDCB <- lastDCB ^ currentDCB <~ DCBnil; 

DeleteDataSegm0nt[bmSegment]; 

blinkOn <- displayOn ♦- FALSE; 

END; 
If nPages - THEN RETURN; 
eurrentPages <- nPages; -- for Display Off/On 
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currentLines ^ nTextLines; -- for Display Off/On 

bmSegment ♦- NewDataSegmenb[Defau1 tBase, nPages]; 

SetupBitmap[DataSegmentAcldress[bmSegm0nt], nTextLines, nPages*AUoDefs.PageSize]; 

displayOn ^ TRUE; 

C1earDS[systemDS]; 

InsertDCB[new: firstDCB, before: dummyDCB.next] ; 

RETURN 

END; 

SetSystemDisplayWidth: PUBLIC PROCEDURE [indent, width: CARDINAL] ■ 
BEGIN 

LeftMargin ^ indent MOD BitsPerWord; 
Leftlndent ^ indent / BitsPerWord; 
WordsPerLine «- Even[width/BitsPerWord]; 
RightMargin ♦- WordsPerLine * BitsPerWord; 

IF displayOn THEN SetSysteniDisp1aySize[currentLines , currentPages] ; 
RETURN 
END; 

SetDummyDisplaySize: PUBLIC PROCEDURE [nScanLines: CARDINAL] ■ 
BEGIN 

currentDummySize ♦- nScanLines; -- for Display Off/On 
IF nScanLines/2 = dummyDCB. height THEN RETURN; 
IF dummyDCB. height i^ THEN RemoveDCB[dummyDCB] ; 
dummyDCB. height <- nScanLines/2 ; 

IF dummyDCB. height # THEN InsertDCB[new: dummyDCB, before: firstDCB]; 
RETURN 
END; 

ResetDS: PROCEDURE [stream: StreamHandle] « 
BEGIN 

ClearDS[stream]; 

IF typescript ff NIL THEN typescript. reset[typescript]; 
RETURN 
END; 

ClearDS: PROCEDURE [stream: StreamHandle] « 
BEGIN 

deb: DCBptr; 
IF stream ff systemDS THEN 

SIGNAL StreamDefs . St reamError[ stream, St reamTy pe] ; 
IF -displayOn THEN RETURN; 
FOR deb ^ firstDCB, deb. next DO 

deb .resol ution ♦- high; 

deb. background *• white; 

deb. indenting ♦- deb. width <- 0; 

deb. bitmap ^ bmLastLine; 

IF deb = lastDCB THEN EXIT; 

ENDLOOP; 
bmNext <- bmFirst; 
bmTail ^ bmLastLine; 
currentDCB ^ firstDCB; 
ClearCurrentLine[stream]; 
RETURN 
END; 

ClearCurrentLine: PUBLIC PROCEDURE [stream: StreamHandle] « 
BEGIN 
IF stream ff systemDS THEN 

SIGNAL StreamDef s.StreamError[ stream, St reamTy pe] ; 
IF typescript ff NIL THEN 

StreamDef s. Sell ndex[ typescript , startLine]; 
IF -displayOn THEN RETURN; 
bmLastLinet <- 0; 

Inl ineOef s .COPY[From: bmLastLine, to: bmLastLine+1 , nwords: 1 astLineSize-1]; 
currentDCB . indenting ^ Leftlndent; 
currentDCB .bitmap <- bmLastLine; 
currentDCB. width <- WordsPerLine; 
bmState.x <- LeftMargin; 
blinkOn <- FALSE; 
DSP.TABindex <- 0; 
RETURN 
END; 
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Scroll: PROCEDURE [char: CHARACTER] - 
BEGIN OPEN BitBUDefs; 
bbt: ARRAY [0. .SIZE[BBTabl0]] OF WORD; 
bbp: BBptr 4- Even[BASE[bbt]]; 
pos: CARDINAL; 
SELECT char FROM 
CR «> NULL; 
TAB -> 
BEGIN 

DSP.TABs[DSP,TABindex] <- bmState.x; 
DSP.TABindex <- DSP.TABindex + 1; 

pos ^ (LOOPHOLE[bmState.x-LeftMargin,CARDINAL]/tabWidth+l)*tabWidth+LeftMargin; 
IF pos < RightMargin THEN bmState.x ♦• pos 
ELSE DPutChar[systemDS, SP]; 
RETURN 
END; 
NUL »> RETURN; 
ENDCASE -> 

IF char < 40C THEN 
BEGIN 

DPutChar[systemDS, 't]; 
DPutChar[systemDS, 

LOOPHOLE[LOOPHOLE[char,CARDINAL]+100B, CHARACTER]]; 
RETURN 
END; 
-- Do the scroll, assuming last (current) line is in bmLastLine. 
-- scroll all others by BLTing their DCBs. move old last line to 
-- new bitmap and free bmLastLine for reuse. 
UNTIL Compact[currentDCB. bmState.x] DO 

IF ~DeleteTopLine[] THEN RETURN;-- not enough space 
ENDLOOP; 
IF currentDCB # lastDCB THEN currentDCB ♦- currentDCB.next 
ELSE 
BEGIN 
IF firstDCB. width # THEN 

[] <- DeleteTopLine[]; 
bbpt 4- [ 
pad: 0, 

sourcealt: FALSE, destalt: FALSE, 
sourcetype: block, function: replace, 
dbca: firstDCB. dbmr: SIZE[DCB]. 
dlx: 16, dty: 0, 

dw: 16*(SIZE[DCB]-1), dh: currentLines-1 , 
sbca: firstDCB, sbmr: SIZE[DCB], 
six: 16, sty: 1, 

unused:, grayO:, grayl:, gray2:, gray3:]; 
IF firstDCB » lastDCB THEN BITBLT[bbp]; 
END; 
IF typescript # NIL THEN startLine <- StreamDefs .Getlndex[typescript]; 
ClearCurrentLine[systemDS]; 
IF char ft CR THEN DPutChar[systemDS, char]; 
END; 

DeleteTopLine: PROCEDURE RETURNS [BOOLEAN] ■ 
BEGIN 

deb: DCBptr; 

-- find first line with bitmap allocated 
FOR deb 4- firstDCB, deb. next DO 

IF deb. width # THEN EXIT; 

IF deb « lastDCB THEN RETURN[FALSE] ; -- found no top line to delete 

ENDLOOP; 
deb. width <- deb. indenting <- 0; 
-- find next line with bitmap allocated 
UNTIL deb « lastDCB DO 

deb <- deb. next; 

IF deb. width # THEN 

BEGIN bmTail *- deb. bitmap; EXIT END; 

REPEAT FINISHED -> -- all linex deleted 

BEGIN bmTail *- bmLastLine; bmNext ♦- bmFirst END; 

ENDLOOP; 
RETURN[TRUE]; 
END; 



Compact: PROCEDURE [deb: DCBptr, x: CARDINAL] RETURNS [BOOLEAN] 



SystemDisplay.mesa 2-S0p-78 18:05:56 Page 



BEGIN 

newWidth: CARDINAL ^ (x+15)/16; 

oldWidth: CARDINAL *- deb. width; 

old: OrderedPOINTER ^ deb. bitmap; 

lineHeight: CARDINAL ^ deb. height*2; 

d: CARDINAL; 

IF X <- LeftMargin THEN d ♦- 

ELSE 

FOR d IN [0.. newWidth) DO 
BEGIN 

p: OrderedPOINTER; 
p <- old + d; 

THROUGH [0. .lineHeight) DO 
IF pt # THEN GO TO foundit; 
p ♦- p + OldWidth; 
ENDLOOP; 
END; 

REPEAT foundit -> NULL; 
ENDLOOP; 
newWidth ^ Even[newWidth-d] ; 
IF newWidth > THEN 
BEGIN OPEN BitBltDefs; 
bbt: ARRAY [0. .SIZE[BBTable]] OF WORD; 
bbp: BBptr ^ Even[BASE[bbt]] ; 
new: OrderedPOINTER; 
IF (new ^ GetMapSpaee[newWidth*lineHeight]) « OrderedNIL THEN 

RETURN[FALSE]; 
deb. width ♦- 0; 
bbpt 4- [ 
pad: 0. 

sourcealt: FALSE, destalt: FALSE, 
soureetype: bloek, funetion: replaee, 
dbea: new, dbmr: newWidth, 
dlx: 0, dty: 0, 

dw: newWidth*16, dh: lineHeight, 
sbea: old, sbmr: oldWidth, 
six: d*16, sty: 0, 

unused:, grayO:, grayl:, gray2:, gray3:]; 
BITBLT[bbp]; 

deb. indenting ^ Leftlndent + d; 
deb. bitmap <- new; 
deb. width ^ newWidth; 
END 
ELSE deb. indenting <r deb. width <- 0; 
RETURN [ TRUE ]; 
END; 

GetMapSpaee: PROCEDURE [nwords: [0..77777B]] RETURNS [p: OrderedPOINTER] - 
BEGIN 

t: INTEGER; 
DO 

t ♦- bmTail - bmNext; 
IF t < THEN 

IF bmLastLine >» bmNext+nwords THEN EXIT 
ELSE bmNext ^ bmFirst 
ELSE 

IF t >■ nwords THEN EXIT 
ELSE RETURN[OrderedNIL]; 
ENDLOOP; 
p <- bmNext; 

bmNext <- bmNext + nwords; 
RETURN 
END; 

DPutChar: PROCEDURE [stream: StreamHandle, ehar: UNSPECIFIED] - 
BEGIN 
IF stream # systemDS THEN 

SIGNAL StreamDef s . StreamError[ stream, St reamTy pe] ; 
IF -displayOn THEN RETURN; 
IF char > 377B THEN RETURN; 
IF blinkOn THEN [] ♦- Bl inkCursor[]; 
IF char < 40B OR 

font.eharWidth[font, ehar] + bmState.x > RightMargin THEN Scroll[ehar] 
ELSE font . pain tChar[ font, char ,@bmState] ; 
RETURN 
END; 
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DPutCharTS: PROCEDURE [stream: StreamHandle, char: UNSPECIFIED] ■ 
BEGIN 

DPutChar[stream, char]; 
typescript.put[ type script, char]; 
RETURN 
END; 

ClearChar: PROCEDURE [stream: StreamHandle, char: UNSPECIFIED] ■ 
BEGIN 
IF stream # systemDS THEN 

SIGNAL StreamDef s.StreamError[stream,StreamType] ; 
IF displayOn THEN 
BEGIN 

IF blinkOn THEN [] ♦- B1 inkCursor[]; 
SELECT char FROM 

NUL. CR, > 377B ■> RETURN; 
TAB »> 
BEGIN 

IF DSP.TABindex > THEN 
BEGIN 

DSP.TABindex ^ DSP.TABindex -1; 
bmState.x ^ DSP.TABs[DSP.TABindex]; 
END; 
RETURN 
END; 
< 40B «> 
BEGIN 

C1earDisp1ayChar[stream, char+lOOB]; 
char ^ 't; 
END; 
ENDCASE »> NULL; 
font .clearChar[f on t, char, @bmSt ate]; 
END; 
RETURN 
END; 

ClearDisplayChar: PUBLIC PROCEDURE [stream: StreamHandle. char: UNSPECIFIED] 
BEGIN 

CTearChar[stream, char]; 
IF typescript » NIL THEN 

BEGIN OPEN StreamDefs; 

Setlndex[ typescript, ModifyIndex[GetIndex[typescript], -1]]; 

END; 
RETURN 
END; 

GetNop: PROCEDURE [stream: StreamHandle] RETURNS [UNSPECIFIED] - 
BEGIN 

ERROR StreamDefs .StreamError[stream,StreamAccess] 
END; 

PutbackNop: PROCEDURE [stream: StreamHandle. char: UNSPECIFIED] - 
BEGIN 

ERROR StreamDefs.StreamError[stream,StreamAccess] 
END; 

EndofNop: PROCEDURE [stream: StreamHandle] RETURNS [BOOLEAN] ■ 
BEGIN 
IF stream # systemDS THEN 

SIGNAL StreamDefs .StreamError[stream,StreamType]; 
RETURN[FALSE] 
END; 

DestroyNop: PROCEDURE [stream: StreamHandle] « 
BEGIN 

ERROR StreamDefs .StreamError[stream,StreamAccess] 
END; 

ddarray: ARRAY [0. .SIZE[DCB]] OF UNSPECIFIED; 

InsertDCB: PROCEDURE [new: DCBptr, before: DCBptr] - 
BEGIN 

deb: DCBptr; 

FOR deb ^ new, deb. next DO 
IF deb, next « DCBnil THEN 
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BEGIN deb. next ♦- before; EXIT END; 
ENDLOOP; 
FOR deb ^ DCBchainHead, deb. next DO 
IF deb. next ■ before THEN 

BEGIN deb. next ^ new; EXIT END; 
ENDLOOP; 
END; 

RemoveDCB: PROCEDURE [deb: DCBptr] ■ 
BEGIN 

prev: DCBptr; 

FOR prev ♦- DCBehainHead, prev, next UNTIL prev. next ■ DCBnil DO 
IF prev. next « deb THEN 

BEGIN prev. next ^ deb. next; EXIT END; 
ENDLOOP; 
deb. next ♦■ DCBnil ; 
END; 

Even; PROCEDURE [a: UNSPECIFIED] RETURNS [UNSPECIFIED] ■ 
BEGIN RETURN[a + CARDINAL[a] MOD 2] END; 

SetFont: PUBLIC PROCEDURE [f: FontDef s. FontHandle] • 
BEGIN OPEN SegmentDefs; 
font ^ f; 

DSP.Iineheight <- Even[font . charHeight[font . ' A]]; 
DSP.pfont 4- LOOPHOLE[f]; 
tabWidth ^ font.charWidth[f ont, SP]*8; 
RETURN 
END; 

SetTypeScript: PUBLIC PROCEDURE [ts: StreamDef s .DiskHandle] - 
BEGIN 

DSP. put *- IF (typescript ♦- ts) = NIL THEN DPutChar ELSE DPutCharTS; 
DSP. rectangle <- LOOPHOLE[ts]; 
RETURN 
END; 

blinkOn: BOOLEAN ♦- FALSE; 

BlinkCursor: PUBLIC PROCEDURE RETURNS [BOOLEAN] ■ 
BEGIN OPEN InlineDefs; 
mask: WORD; 
p: POINTER; 

IF -displayOn THEN RETURN[b1inkOn]; 

mask ^ BITSHIFT[3. 14 - CARDINAL[bmState.x+l] MOD 16]; 
p ^ bmState. origin + (bmState.x+l)/16 + bmState.wordsPerLine; 
THROUGH [2. .systemDS.lineheight) DO 

pt ♦- BITXOR[pt, mask]; 

IF mask « 1 THEN (p+l)t 4- BITXOR[(p+l)t , lOOOOOB]; 

p ♦- p + bmState.wordsPerLine; 

ENDLOOP; 
RETURN[blinkOn ♦- -blinkOn] 
END; 

InitDisplay: PUBLIC PROCEDURE [dummySize, textLines, nPages: CARDINAL, f: FontDef s . FontHandle] 
BEGIN OPEN SegmentDefs; 
IF font ^ NIL THEN f ont . destroy[font] ; 
SetFont[f]; 

SetOummyDispl aySize[dummySize] ; 
SetSystemDisp1aySize[textLines, nPages]; 
RETURN 
END; 

CleanupDisplay : ImageDefs .Cleanupltem <~ [link:, proc: Cleanup, 

mask: ImageDefs. C1eanupMask[Finish] + ImageDefs. CleanupMask[Abort]]; 

Cleanup: ImageDefs .CleanupProcedure ■ 
BEGIN 
SELECT why FROM 

Finish, Abort «> DCBchainHead . next ^ DCBnil; 

ENDCASE; 
END; 

ImageDefs . Ad dCle an up Procedure[ ©Clean upDi splay]; 

dummyDCB ^ Even[BASE[ddarray]] ; 

dummyDCBt <- [DCBnil .high .white.O , ,LOOPHOLE[0 ,Ord0redPOINTER] .0] ; 
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S8tSystemDisplayWidth[16, 36*16]; 
END. 



